R Change Values in Vector